Dim CurrentI As Integer
Dim CurrentObj As Object

Property Set CurrentI(I As Integer)
	 CurrentI = I 
End Property

Property Set CurrentObject(J AS Object)
	Set CurrentObj = J 
End Property

Public Property Set Bar(a$)
End Property
